xy, _xy: TPoint;\r
xmax: Integer;\r
lb: TLabel;\r
+ us: string;\r
+\r
begin\r
if (AList = nil) then Exit;\r
- \r
+\r
FOpts := AList;\r
\r
xy.x := 0;\r
btnHelp.ShowHint := True;\r
end;\r
\r
- if FIsInput and (\r
- (AnsiPos('generate ', o.hint) <> 0) or\r
- (AnsiPos(' generate', o.hint) <> 0) or\r
- (AnsiPos('output ', o.hint) <> 0) or\r
- (AnsiPos(' output', o.hint) <> 0) or\r
- (AnsiPos('write', o.hint) <> 0) or\r
- (AnsiPos(' write', o.hint) <> 0)) then Continue;\r
+ us := AnsiLowerCase(o.hint);\r
+ if FIsInput and (AnsiPos('read', us) = 0) and\r
+ (\r
+ (AnsiPos('generate ', us) <> 0) or\r
+ (AnsiPos(' generate', us) <> 0) or\r
+ (AnsiPos('output ', us) <> 0) or\r
+ (AnsiPos(' output', us) <> 0) or\r
+ (AnsiPos('write', us) <> 0) or\r
+ (AnsiPos(' write', us) <> 0)\r
+ ) then Continue;\r
\r
chb := TCheckBox.Create(nil);\r
o.chb := chb;\r
if (Copy(CommandLine, 1, 1) = '~') then\r
sCmd := System.Copy(CommandLine, 2, Length(CommandLine) - 1)\r
else\r
- sCmd := SysUtils.Format('%s %s ', [gpsbabel_exe, CommandLine]);\r
+ sCmd := SysUtils.Format('"%s" %s ', [gpsbabel_exe, CommandLine]);\r
\r
SecurityAttr.nLength := sizeof(TSECURITYATTRIBUTES);\r
SecurityAttr.bInheritHandle := true;\r